home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / gfx / board / picasso9.lha / InstallPicasso96 < prev    next >
Text File  |  1997-02-24  |  37KB  |  1,270 lines
  1. ;-----------------------------------------------------------------------------
  2. ; Script to install Picasso96 
  3. ;
  4. ; $VER: InstallPicasso96 1.0 (15.12.96)
  5. ;
  6. ;-----------------------------------------------------------------------------
  7.  
  8. ;=============================================================================
  9. ; Configuration defaults
  10. ;=============================================================================
  11.  
  12. (set #Name                        "Picasso96")
  13. (set #MinSysVersion            40)
  14. (set #LibsDefaultPath        "SYS:Libs")
  15. (set #MonitorsDefaultPath    "SYS:Devs/Monitors")
  16. (set #SettingsDefaultName    "SYS:Devs/Picasso96Settings")
  17. (set #PrefsDefaultPath        "SYS:Prefs")
  18. (set #MainPath                    "Picasso96")
  19. (set #MainDefaultPath        "Work:")
  20.  
  21. ;=============================================================================
  22. ; English strings
  23. ;=============================================================================
  24.  
  25. (if
  26.     (= @language "english")
  27.     (
  28.     ; startup message
  29.         (set #StartupMsg1
  30.             (cat
  31.                 "Picasso96 is a complex piece of software and requires some experience to install and configure. "
  32.                 "If you are a beginner with the Amiga and already have a working environment for your graphics board, "
  33.                 "you might think twice before installing Picasso96! "
  34.                 "This version of Picasso96 is a snapshot of the development and works on most systems. However, your "
  35.                 "system may differ in some aspects and this version of Picasso96 might fail to work on your Amiga. "
  36.                 "So, please, backup your current system configuration before installing Picasso96! "
  37.             )
  38.         )
  39.         (set #StartupMsg2
  40.             (cat
  41.                 "Before you go on, please disable your current graphics board drivers and reboot, if there is any. "
  42.                 "Otherwise your system will probably refuse to work correctly afterwards. "
  43.                 "Because of the complexity of the different systems available, we can not perform this action "
  44.                 "automatically and chose to ask you to do this. Please refer to the manuals of your current "
  45.                 "driver software or read the appropriate section of the Picasso96 manual. "
  46.             )
  47.         )
  48.         (set #StartupMsg3
  49.             (cat
  50.                 "Please read the documentation before installing Picasso96. Setup and configuration of graphics drivers "
  51.                 "is not trivial and should be done with certain things kept in mind. Do you want to read the manual now? "
  52.             )
  53.         )
  54.         (set #StartupHelp3
  55.             (cat
  56.                 "Please read the documentation! This might help you to avoid some trouble!"
  57.             )
  58.         )
  59.         
  60.     ; Errors
  61.         (set #Err-Bad-Kick "You need at least KickStart 3.1 to run Picasso96!")
  62.         (set #Err-Bad-CPU "You need at least a Motorola M68020 CPU to run Picasso96!")
  63.         (set #Err-No-Boards "You really should have selected at least one board type!")
  64.         (set #Err-No-UpdateScript "Could not find update script from previous installation, please back up configuration files and reinstall!")
  65.         (set #Err-No-DeleteScript "Could not find update script from previous installation, please remove manually.")
  66.  
  67.     ; Warnings
  68.         (set #Warning-NoBoards "It seems that your Amiga has no compatible Amiga graphics board installed!")
  69.  
  70.     ; Message
  71.         (set #Message
  72.             (cat
  73.                 "Thank you very much for choosing \nPicasso96\n as your graphics system.\n\n"
  74.                 "Picasso96 is the new system friendly environment for many different Amiga graphics boards."
  75.             )
  76.         )
  77.  
  78.     ; Install/Update
  79.         (set #InstallMode "Do you want to install, update or uninstall Picasso96?")
  80.         (set #InstallModeHelp
  81.             (cat
  82.                 "Choosing Install will install Picasso96 with all configuration files,"
  83.                 "if you click update, your existing configuration files will not be touched."
  84.             )
  85.         )
  86.         (set #Install "Install")
  87.         (set #Update "Update")
  88.         (set #Uninstall "Uninstall")
  89.  
  90.     ; Boards
  91.         (set #AskBoards "What kind of graphics board(s) do you want to use with Picasso96?")
  92.         (set #AskBoardsHelp
  93.             (cat
  94.                 "Select those cards that you own, if you do not own any of them, "
  95.                 "you can not use Picasso96 yet. Ask the development team or the maker of your "
  96.                 "card(s) to build a suitable driver."
  97.             )
  98.         )
  99.  
  100.     ; Monitor
  101.         (set #15kHzMonitor "15 kHz")
  102.         (set #31kHzMonitor "31 kHz")
  103.         (set #35kHzMonitor "35 kHz")
  104.         (set #38kHzMonitor "38 kHz")
  105.         (set #48kHzMonitor "48 kHz")
  106.         (set #57kHzMonitor "57 kHz")
  107.         (set #64kHzMonitor "64 kHz")
  108.         (set #AskMonitor "What horizontal scan rates can your monitor handle?")
  109.         (set #AskMonitorHelp
  110.             (cat
  111.                 "Look in the manuals of your monitors and look for the horizontal "
  112.                 "scan rates it can handle. They are specified like 30-38 kHz. "
  113.                 "Select the best matching choice."
  114.             )
  115.         )
  116.  
  117.     ; Libs
  118.         (set #AskLibPath "Where do you want to have the Picasso96 library files installed?")
  119.         (set #AskLibPathHelp
  120.             (cat
  121.                 "If you are not absolutely sure what to choose, choose \""
  122.                 #LibsDefaultPath "\"!"
  123.             )
  124.         )
  125.         (set #AskLibPathLibs #LibsDefaultPath)
  126.         (set #AskLibPathUser "Select another location")
  127.  
  128.         (set #SelectLibDir "Choose a directory for the Picasso96 library files.")
  129.         (set #SelectLibDirHelp
  130.             (cat
  131.                 "This directory MUST be a part of your LIBS: assign!"
  132.                 "It has to be part of libs: before the monitors are launched."
  133.                 "Therefore, it is usually best to install them in SYS:libs."
  134.             )
  135.         )
  136.  
  137.     ; Monitor
  138.         (set #AskMonitorPath "Where do you want to have the monitor files of Picasso96 installed?")
  139.         (set #AskMonitorPathHelp
  140.             (cat
  141.                 "If you are not absolutely sure what to choose, choose \""
  142.                 #MonitorsDefaultPath "\"!"
  143.             )
  144.         )
  145.         (set #AskMonitorPathMonitors #MonitorsDefaultPath)
  146.         (set #AskMonitorPathUser "Select another location")
  147.  
  148.         (set #SelectMonitorDir "Choose a directory for Picasso96's monitor files.")
  149.         (set #SelectMonitorDirHelp
  150.             (cat
  151.                 "If you want to have Picasso96 started automatically during the"
  152.                 "system boot phase, it would be the best idea to put the monitor"
  153.                 "in \"" #MonitorsDefaultPath "\"."
  154.             )
  155.         )
  156.  
  157.     ; Prefs
  158.         (set #AskPrefsPath "Where do you want to have the Picasso96 preferences program \"Picasso96Mode\" installed?")
  159.         (set #AskPrefsPathHelp
  160.             (cat
  161.                 "If you are not absolutely sure what to choose, choose \""
  162.                 #PrefsDefaultPath "\"!"
  163.             )
  164.         )
  165.         (set #AskPrefsPathPrefs #PrefsDefaultPath)
  166.         (set #AskPrefsPathUser "Select another location")
  167.  
  168.         (set #SelectPrefsDir "Choose a directory for Picasso96Mode.")
  169.         (set #SelectPrefsDirHelp
  170.             (cat
  171.                 "It is usually a good idea to put Picasso96Mode in \"" #PrefsDefaultPath "\"."
  172.             )
  173.         )
  174.  
  175.     ; Settings
  176.         (set #AskSettingsPath "Where do you want to have the Picasso96 settings file installed?")
  177.         (set #AskSettingsPathHelp
  178.             (cat
  179.                 "If you are not absolutely sure what to choose, choose \""
  180.                 #SettingsDefaultName "\"!"
  181.             )
  182.         )
  183.         (set #AskSettingsPathDevs #SettingsDefaultName)
  184.         (set #AskSettingsPathUser "Select another location")
  185.  
  186.         (set #SelectSettingsDir "Choose a directory for the Picasso96 settings file.")
  187.         (set #SelectSettingsDirHelp
  188.             (cat
  189.                 "It is usually a good idea to store the settings as \"" #SettingsDefaultName "\"."
  190.             )
  191.         )
  192.         (set #AskSettingsCopy "There is already a settings file!\nDo you want to keep the old one?")
  193.         (set #AskSettingsCopyHelp
  194.             (cat
  195.                 "Warning! If you select overwrite all current settings will be replaced with the default "
  196.                 "settings. Your old file will be moved to " #_settingsname ".bak"
  197.             )
  198.         )
  199.         (set #Keep "Keep old")
  200.         (set #Overwrite "Install new")
  201.  
  202.     ; Main
  203.         (set #SelectMainDir "Where do you want to have the support files installed?\nA drawer named Picasso96 will be created there.")
  204.         (set #SelectMainDirHelp
  205.             (cat
  206.                 "A new drawer named Picasso96 will be created to hold the files."
  207.                 "An appropriate assign will be added to your user-startup file later."
  208.             )
  209.         )
  210.  
  211.     ; Copy
  212.         (set #Picasso96HomeDir "Creating drawer for applications and scripts.")
  213.         (set #Picasso96HomeDirHelp "The drawer created now holds the applications and the update and uninstall scripts.")
  214.         (set #Picasso96Dir "Creating drawer for cards and chips.")
  215.         (set #Picasso96DirHelp "The drawer created now holds the chip and card drivers and the main rtg.library.")
  216.         (set #CopyPicasso96 "Installing Picasso96API.library.")
  217.         (set #CopyPicasso96Help "This library is needed for Picasso96 applications.")
  218.         (set #CopyRtg "Installing RTG system library.")
  219.         (set #CopyRtgHelp "This library provides the graphics system functions.")
  220.         (set #CopyFL "Installing fast layers library.")
  221.         (set #CopyFLHelp "This library improves window movement performance.")
  222.         (set #CopyPDT
  223.             (cat "Installing a new picture.datatype to SYS:Classes/Datatypes. "
  224.                  "Your old one will be saved as SYS:Classes/Datatypes/picture.datatype.old "
  225.                  "The new picture.datatype is absolutely required."
  226.             )
  227.         )
  228.         (set #CopyPDTHelp
  229.             (cat "The original AmigaOS V40 picture.datatype doesn't "
  230.                  "work with graphics boards. This will install a new one "
  231.                  "which has all the funtionality of the old one, but also can "
  232.                  "handle graphics boards. Your old picture.datatype will be saved "
  233.                  "as SYS:Classes/Datatypes/picture.datatype.old. "
  234.             )
  235.         )
  236.         (set #CopyCard "Installing board driver for %s.")
  237.         (set #CopyCardHelp "This driver is needed for at least one of your boards.")
  238.         (set #CopyMonitor "Installing monitor driver for %s.")
  239.         (set #CopyMonitorHelp "This driver is needed for at least one of your boards.")
  240.         (set #MonitorToolType "Adjusting tooltypes for %s's monitor driver.")
  241.         (set #MonitorToolTypeHelp "This step configures the monitor driver.")
  242.         (set #CopyChip "Installing chipset driver for %s.")
  243.         (set #CopyChipHelp "This driver is needed for at least one of your boards.")
  244.  
  245.         (set #CopyPicasso96Mode "Installing Picasso96Mode.")
  246.         (set #CopyPicasso96ModeHelp "You will need Picasso96Mode to adjust your display settings.")
  247.         (set #Picasso96ModeIconType "Adjusting the tooltypes of Picasso96Mode and its icon position.")
  248.         (set #Picasso96ModeIconTypeHelp "The tooltypes of Picasso96Mode will reflect your choice about the location of the settings file.")
  249.     
  250.         (set #CopyEmuLib "Installing cross platform emulation library.")
  251.         (set #CopyEmuLibHelp
  252.             (cat
  253.                 "You will need this library to run programs "
  254.                 "written for other graphics board systems."
  255.             )
  256.         )
  257.         
  258.         (set #CopyPicasso96API "Installing Picasso96API.library")
  259.         (set #CopyPicasso96APIHelp "The Picasso96API.library is needed for applications with direct Picasso96 support.")
  260.     
  261.         (set #CopyApps "Installing additional programs.")
  262.         (set #CopyAppsHelp "During this step some utilities will be installed.")
  263.  
  264.     ; User-Startup
  265.         (set #AddUserStartup "Performing changes to User-Startup.")
  266.         (set #AddUserStartupHelp
  267.             (cat
  268.                 "An assignment \""
  269.                 #MainPath
  270.                 ":\" will be added to your SYS:s/User-Startup file. "
  271.                 "This is primarily needed when updating Picasso96."
  272.             )
  273.         )
  274.     
  275.     ; Install
  276.         (set #Msg-Installing "Installing Picasso96 files!")
  277.  
  278.     ; Update
  279.         (set #Msg-Updating "Updating existing installation!")
  280.  
  281.     ; Delete
  282.         (set #Msg-Deleting "Deleting existing installation!")
  283.     
  284.     ; Install Drivers
  285.         (set #CopyDrivers "\nDo you want to have the application drivers copied to your harddisk?")
  286.         (set #CopyDriversHelp "The drivers will be installed to the Picasso96 directory on your harddisk to allow easy on-demand installation.")
  287.         (set #MsgInstallFromHD "\nPlease install the application drivers from the Picasso96 home dirctory or from the driver disk.")
  288.     )
  289. )
  290.  
  291. ;=============================================================================
  292. ; German strings
  293. ;=============================================================================
  294.  
  295. (if
  296.     (= @language "deutsch")
  297.     (
  298.     ; startup message
  299.         (set #StartupMsg1
  300.             (cat
  301.                 "Aufgrund des Umfanges und der Komplexität der Software erfordert Picasso96 einen erfahrenen "
  302.                 "Amiga Benutzer für die Installation und Konfiguration. Falls Sie sich mit dem Amiga noch "
  303.                 "nicht so gut auskennen und bereits eine zu Ihrer Zufriedenheit funktionierende Arbeitsumgebung "
  304.                 "besitzen, sollten Sie sich die Installation von Picasso96 noch einmal überlegen. "
  305.                 "Diese Version von Picasso96 stellt den augenblicklichen Stand der Entwicklung der Software dar "
  306.                 "und funktioniert auf den meisten Konfigurationen. Trotzdem kann es sein, daß es gerade auf "
  307.                 "Ihrem System nicht funktioniert. Deswegen sollten Sie auf jeden Fall vor der Installation eine "
  308.                 "Sicherung Ihres Systems durchführen! "
  309.             )
  310.         )
  311.         (set #StartupMsg2
  312.             (cat
  313.                 "Vor der weiteren Installation möchten wir Sie bitten, andere eventuell installierte "
  314.                 "Grafikkartentreiber zu deaktivieren und einen Warmstart durchzuführen, da Picasso96 "
  315.                 "sonst nicht zuverlässig arbeiten kann. "
  316.                 "Aufgrund der hohen Komplexität und Vielfalt unterschiedlicher Installationsformen "
  317.                 "können wir diesen Schritt leider nicht vollautomatisch durchführen und bitten "
  318.                 "deshalb Sie, dies manuell durchzuführen. Hinweise, wie das zu bewerkstelligen "
  319.                 "ist, entnehmen Sie bitte der Dokumentation ihres Systems oder auch dem entsprechenden "
  320.                 "Abschnitt in der Picasso96 Anleitung. "
  321.             )
  322.         )
  323.         (set #StartupMsg3
  324.             (cat
  325.                 "Bitte lesen Sie die Dokumentation bevor Sie Picasso96 installieren. Das Einrichten und die "
  326.                 "Konfiguration von Grafikkartentreibern ist leider nicht trivial und sollte erst durchgeführt "
  327.                 "werden, wenn man sich ein paar Gedanken gemacht hat. Möchten Sie die Dokumentation jetzt lesen? "
  328.             )
  329.         )
  330.         (set #StartupHelp3
  331.             (cat
  332.                 "Bitte lesen Sie die Dokumentation! Das kann Ihnen einigen Ärger ersparen!"
  333.             )
  334.         )
  335.         
  336.     ; Errors
  337.         (set #Err-Bad-Kick "Sie benötigen mindestens KickStart 3.1 für Picasso96!")
  338.         (set #Err-Bad-CPU "Sie benötigen mindestens eine Motorola M68020 CPU für Picasso96!")
  339.         (set #Err-No-Boards "Sie hätten wirklich mindestens eine Grafikkarte auswählen sollen!")
  340.         (set #Err-No-UpdateScript "Leider konnte kein Skript zum Aktualisieren von einer früheren Installation gefunden werden, bitte frisch installieren!")
  341.         (set #Err-No-DeleteScript "Leider konnte kein Skript zum Entfernen von einer früheren Installation gefunden werden, bitte manuell entfernen!")
  342.  
  343.     ; Warnings
  344.         (set #Warning-NoBoards "Ihr Rechner scheint keine kompatible Grafikkarte installiert zu haben!")
  345.  
  346.     ; Message
  347.         (set #Message
  348.             (cat
  349.                 "Vielen Dank, daß Sie \nPicasso96\n installieren wollen.\n\n"
  350.                 "Picasso96 ist die neue systemfreundliche Software für fast alle Amiga-Grafikkarten."
  351.             )
  352.         )
  353.  
  354.     ; Install/Update
  355.         (set #InstallMode "Wollen Sie Picasso96 installieren, aktualisieren oder entfernen?")
  356.         (set #InstallModeHelp
  357.             (cat
  358.                 "Wenn Sie Installieren wählen, wird Picasso96 mit allen Konfigurationsdateien installiert,"
  359.                 "wenn Sie Aktualisieren wählen, werden Ihre Konfigurationsdateien nicht verändert."
  360.             )
  361.         )
  362.         (set #Install "Installieren")
  363.         (set #Update "Aktualisieren")
  364.         (set #Uninstall "Entfernen")
  365.  
  366.     ; Boards
  367.         (set #AskBoards "Welche Grafikkarten wollen Sie mit Picasso96 verwenden?")
  368.         (set #AskBoardsHelp
  369.             (cat
  370.                 "Wählen Sie die Karten, die Sie besitzen. Wenn Sie keine der angegebenen "
  371.                 "besitzen, können Sie Picasso96 leider noch nicht benutzen. Fragen Sie das "
  372.                 "Entwicklerteam oder den Hersteller Ihrer Grafikkarte nach einem passenden Treiber."
  373.             )
  374.         )
  375.  
  376.     ; Monitor
  377.         (set #15kHzMonitor "15 kHz")
  378.         (set #31kHzMonitor "31 kHz")
  379.         (set #35kHzMonitor "35 kHz")
  380.         (set #38kHzMonitor "38 kHz")
  381.         (set #48kHzMonitor "48 kHz")
  382.         (set #57kHzMonitor "57 kHz")
  383.         (set #64kHzMonitor "64 kHz")
  384.         (set #AskMonitor "Welche Horizontalfrequenz kann Ihr Monitor handhaben?")
  385.         (set #AskMonitorHelp
  386.             (cat
  387.                 "Sehen Sie im Handbuch Ihres Monitors nach, welche Horizontalfrequenzen "
  388.                 "er verkraften. Dort finden Sie zum Beispiel eine Angabe wie 30-38 kHz. "
  389.                 "Wählen Sie die Möglichkeit aus, die am besten zu Ihren Monitor paßt."
  390.             )
  391.         )
  392.  
  393.     ; Libs
  394.         (set #AskLibPath "Wo sollen die Funktionsbibliotheken für Picasso96 installiert werden?")
  395.         (set #AskLibPathHelp
  396.             (cat
  397.                 "Die Funktionsbibliotheken müssen in das Verzeichnis kopiert werden, auf welches "
  398.                 "der Assign Libs: während des Startvorgangs (vor User-Startup!) zeigt. "
  399.                 "Im Zweifelsfall nehmen Sie einfach " #LibsDefaultPath "!"
  400.             )
  401.         )
  402.         (set #AskLibPathLibs #LibsDefaultPath)
  403.         (set #AskLibPathUser "Einen anderen Ort wählen")
  404.  
  405.         (set #SelectLibDir "Wählen Sie ein Verzeichnis für die Funktionsbibliotheken von Picasso96.")
  406.         (set #SelectLibDirHelp
  407.             (cat
  408.                 "Dieses Verzeichnis MUSS ein Teil Ihrer LIBS: Zuweisung sein!"
  409.                 "Es muß zu dem Zeitpunkt verfügbar sein, zu dem die Monitordateien gestartet werden."
  410.                 "Deshalb ist es meistens am besten, die Dateien in SYS:Libs zu installieren."
  411.             )
  412.         )
  413.  
  414.     ; Monitor
  415.         (set #AskMonitorPath "Wo sollen die Monitor Dateien für Picasso96 installiert werden?")
  416.         (set #AskMonitorPathHelp
  417.             (cat
  418.                 "Wenn Sie nicht wirklich ganz genau wissen, wie Sie sich entscheiden sollen, wählen Sie \""
  419.                 #MonitorsDefaultPath "\"!"
  420.             )
  421.         )
  422.         (set #AskMonitorPathMonitors #MonitorsDefaultPath)
  423.         (set #AskMonitorPathUser "Einen anderen Ort wählen")
  424.  
  425.         (set #SelectMonitorDir "Wählen Sie ein Verzeichnis die Monitor-Dateien von Picasso96.")
  426.         (set #SelectMonitorDirHelp
  427.             (cat
  428.                 "Wenn Picasso96 während der Systeminitialisierung gestartet werden soll, ist"
  429.                 "es am besten, die Monitor Dateien nach \"" #MonitorsDefaultPath "\"zu kopieren."
  430.             )
  431.         )
  432.  
  433.     ; Prefs
  434.         (set #AskPrefsPath "Wo soll \"Picasso96Mode\", das Programm zur Einstellung der Auflösungen, installiert werden?")
  435.         (set #AskPrefsPathHelp
  436.             (cat
  437.                 "Wenn Sie nicht genau wissen, was Sie wollen, nehmen Sie \""
  438.                 #PrefsDefaultPath "\"!"
  439.             )
  440.         )
  441.         (set #AskPrefsPathPrefs #PrefsDefaultPath)
  442.         (set #AskPrefsPathUser "Einen anderen Ort wählen")
  443.  
  444.         (set #SelectPrefsDir "Wählen Sie ein Verzeichnis für Picasso96Mode.")
  445.         (set #SelectPrefsDirHelp
  446.             (cat
  447.                 "Es ist normalerweise nicht schlecht, Picasso96Mode nach \"" #PrefsDefaultPath "\"zu kopieren."
  448.             )
  449.         )
  450.  
  451.     ; Settings
  452.         (set #AskSettingsPath "Wo soll die Datei für die Bildschirmauflösungen gespeichert werden?")
  453.         (set #AskSettingsPathHelp
  454.             (cat
  455.                 "Wir empfehlen \""
  456.                 #SettingsDefaultName "\"."
  457.             )
  458.         )
  459.         (set #AskSettingsPathDevs #SettingsDefaultName)
  460.         (set #AskSettingsPathUser "Einen anderen Ort wählen")
  461.  
  462.         (set #SelectSettingsDir "Wählen Sie ein Verzeichnis für die Datei der Bildschirmauflösungen.")
  463.         (set #SelectSettingsDirHelp
  464.             (cat
  465.                 "Unser Vorschlag ist \"" #SettingsDefaultName "\"."
  466.             )
  467.         )
  468.         (set #AskSettingsCopy "Es gibt schon so eine alte Datei mit Bildschirmauflösungen!\nWollen Sie die alte behalten?")
  469.         (set #AskSettingsCopyHelp
  470.             (cat
  471.                 "Achtung! Wenn Sie überschreiben wählen, dann werden die jetzigen Einstellungen "
  472.                 "mit den ausgelieferten überschrieben! Ihre alte Datei wird in " #_settingsname ".bak umbenannt."
  473.             )
  474.         )
  475.         (set #Keep "Alte behalten")
  476.         (set #Overwrite "Neue installieren")
  477.  
  478.     ; Main
  479.         (set #SelectMainDir "Wo sollen die anderen Dateien installiert werden?\nEin neues Verzeichnis mit Namen Picasso96 wird dort installiert.")
  480.         (set #SelectMainDirHelp
  481.             (cat
  482.                 "Dort werden ein paar Zubehördateien installiert, die für den alltäglichen Betrieb nicht gebraucht werden."
  483.                 "Eine dazugehörende Zuweisung wird später auch Ihrer User-Startup Datei hinzugefügt."
  484.             )
  485.         )
  486.  
  487.     ; Copy
  488.         (set #Picasso96HomeDir "Picasso96 Stammverzeichnis wird angelegt.")
  489.         (set #Picasso96HomeDirHelp "Das angelegte Verzeichnis beherbergt das Zubehör.")
  490.         (set #Picasso96Dir "Das Verzeichnis für die Kartentreiber wird angelegt.")
  491.         (set #Picasso96DirHelp "Dieses Verzeichnis wird die hardwarenahen Treiber sowie die rtg.library aufnehmen.")
  492.         (set #CopyPicasso96 "Installation der Picasso96API.library Funktionsbibliothek.")
  493.         (set #CopyPicasso96Help "Diese Bibliothek wird für Picasso96-Anwendungen benötigt.")
  494.         (set #CopyRtg "Installation des RTG Systems.")
  495.         (set #CopyRtgHelp "Diese Funktionsbibliothek enthält die Grafikfunktionserweiterungen.")
  496.         (set #CopyFL "Installation der FastLayers Bibliothek.")
  497.         (set #CopyFLHelp "Diese Funktionsbibliothek erhöht die Geschwindigkeit der Bewegung von Fenstern.")
  498.         (set #CopyPDT
  499.             (cat "Es wird ein neuer picture.datatype nach SYS:Classes/Datatypes installiert. "
  500.                     "Ihr alter picture.dataype wird als SYS:Classes/Datatypes/picture.datatype.old "
  501.                     "gesichert. Der neue picture.datatype wird unbedingt benötigt. "
  502.             )
  503.         )
  504.         (set #CopyPDTHelp
  505.             (cat "Der Original-AmigaOS-V40-picture.datatype funktioniert nicht mit "
  506.                     "Grafikkarten. Hier wird ein neuer picture.datatype installiert, "
  507.                     "der zum alten voll kompatibel ist aber zusätzlich mit "
  508.                     "Grafikkarten zusammenarbeitet. "
  509.                     "Ihr alter picture.dataype wird als SYS:Classes/Datatypes/picture.datatype.old "
  510.                     "gesichert. "
  511.             )
  512.         )
  513.         (set #CopyCard "Installation des Hardwaretreibers für %s.")
  514.         (set #CopyCardHelp "Dieser Treiber wird für mindestens eine der Karten dieses Typs benötigt.")
  515.         (set #CopyMonitor "Installation der Monitordatei für %s.")
  516.         (set #CopyMonitorHelp "Dieser Treiber wird für mindestens eine der Karten dieses Typs benötigt.")
  517.         (set #MonitorToolType "Passe ToolTypes für %s an.")
  518.         (set #MonitorToolTypeHelp "Dieser Schritt konfiguriert den Monitortreiber.")
  519.         (set #CopyChip "Installation des Chipsatztreibers für %s.")
  520.         (set #CopyChipHelp "Dieser Treiber wird für mindestens eine Ihrer Grafikkarten benötigt.")
  521.  
  522.         (set #CopyPicasso96Mode "Installiere Picasso96Mode.")
  523.         (set #CopyPicasso96ModeHelp "Picasso96Mode wird zum Anpassen der Auflösungen an Ihr System benötigt.")
  524.         (set #Picasso96ModeIconType "Anpassung der ToolTypes und Iconposition von Picasso96Mode.")
  525.         (set #Picasso96ModeIconTypeHelp "Die ToolTypes von Picasso96Mode werden entsprechend Ihrer Wahl des Dateinamens der Datei mit den Auflösungen gesetzt.")
  526.     
  527.         (set #CopyEmuLib "Installation der Emulationsbibliothek.")
  528.         (set #CopyEmuLibHelp
  529.             (cat
  530.                 "Diese Bibliothek wird benötigt, um Programme zu unterstützen, "
  531.                 "die für andere Grafikkartensysteme geschrieben wurden."
  532.             )
  533.         )
  534.     
  535.         (set #CopyPicasso96API "Installiere Picasso96API.library")
  536.         (set #CopyPicasso96APIHelp "Die Picasso96API.library wird für Programme mit direkter Picasso96 Unterstützung benötigt.")
  537.     
  538.         (set #CopyApps "Installation des Zubehörs.")
  539.         (set #CopyAppsHelp "In diesem Schritt werden Zubehörprogramme installiert.")
  540.  
  541.     ; User-Startup
  542.         (set #AddUserStartup "Änderungen an User-Startup durchführen.")
  543.         (set #AddUserStartupHelp
  544.             (cat
  545.                 "Eine Zuweisung \""
  546.                 #MainPath
  547.                 ":\" wir Ihrer SYS:s/User-Startup Datei hinzugefügt. "
  548.                 "Diese wird hauptsächlich zum Aktualisieren benötigt."
  549.             )
  550.         )
  551.     
  552.     ; Install
  553.         (set #Msg-Installing "Installiere Picasso96 System!")
  554.  
  555.     ; Update
  556.         (set #Msg-Updating "Aktualisierung Ihres Picasso96 Systems!")
  557.  
  558.     ; Delete
  559.         (set #Msg-Deleting "Entferne Ihre Picasso96 Installation!")
  560.     
  561.     ; Install Drivers
  562.         (set #CopyDrivers "\nMöchten Sie die Applikationstreiber auf die Festplatte kopieren, um sie bei Bedarf von dort installieren zu können?")
  563.         (set #CopyDriversHelp "Die Treiber werden in das Picasso96 Verzeichnis auf Ihrer Festplatte kopiert. Von dort können Sie diese Treiber dann individuell nach Bedarf installieren.")
  564.         (set #MsgInstallFromHD "\nBitte installieren sie die Treiber für die Anwendungen aus dem Picasso96 Verzeichnis oder von der Diskette.")
  565.     )
  566. )
  567.  
  568. ;=============================================================================
  569. ; Procedures
  570. ;=============================================================================
  571. (procedure P_InstallCard
  572.     (
  573.         (copylib
  574.             (prompt (#CopyCard #_boardname))
  575.             (help #CopyCardHelp)
  576.             (source (tackon "libs/Picasso96/" (cat #_boardname ".card")))
  577.             (dest #_libsPicasso96path)
  578.             (confirm)
  579.         )
  580.         (set #_iconpath (tackon #_monitorpath #_boardname))
  581.         (if
  582.             (= 1 (exists #_iconpath))
  583.             (
  584.                 ; kind of update, keep icon
  585.                 (copylib
  586.                     (prompt (#CopyMonitor #_boardname))
  587.                     (help #CopyMonitorHelp)
  588.                     (source "devs/monitors/Picasso96")
  589.                     (dest #_monitorpath)
  590.                     (newname #_boardname)
  591.                     (confirm)
  592.                 )
  593.                 (tooltype
  594.                     (prompt (#MonitorToolType #_boardname))
  595.                     (help #MonitorToolTypeHelp)
  596.                     (dest #_iconpath)
  597.                     (settooltype "BoardType" #_boardname)
  598.                     (settooltype "SettingsFile" #_settingsname)
  599.                     (confirm)
  600.                 )
  601.             )
  602.             (
  603.                 ; install new, copy with icon
  604.                 (copylib
  605.                     (prompt (#CopyMonitor #_boardname))
  606.                     (help #CopyMonitorHelp)
  607.                     (source "devs/monitors/Picasso96")
  608.                     (dest #_monitorpath)
  609.                     (newname #_boardname)
  610.                     (confirm)
  611.                     (infos)
  612.                 )
  613.                 (tooltype
  614.                     (prompt (#MonitorToolType #_boardname))
  615.                     (help #MonitorToolTypeHelp)
  616.                     (dest #_iconpath)
  617.                     (settooltype "(DisplayChain" "Yes)")
  618.                     (settooltype "IgnoreMask" "Yes")
  619.                     (settooltype "(SoftSprite" "Yes)")
  620.                     (settooltype "(BigSprite" "Yes)")
  621.                     (settooltype "(BorderBlank" "Yes)")
  622.                     (settooltype "SettingsFile" #_settingsname)
  623.                     (settooltype "BoardType" #_boardname)
  624.                     (noposition)
  625.                     (confirm)
  626.                 )
  627.             )
  628.         )
  629.     )
  630. )
  631.  
  632. (procedure P_InstallChip
  633.     (copylib
  634.         (prompt (#CopyChip #_chipname))
  635.         (help #CopyChipHelp)
  636.         (source (tackon "libs/Picasso96/" (cat #_chipname ".chip")))
  637.         (dest #_libsPicasso96path)
  638.         (confirm)
  639.     )
  640. )
  641.  
  642. ;=============================================================================
  643. ; Install ...
  644. ;=============================================================================
  645.  
  646. (welcome #Message)
  647.  
  648. (message #StartupMsg1 (all))
  649.  
  650. (message #StartupMsg2 (all))
  651.  
  652. (set #_olduserlevel @user-level)
  653. (user 1)
  654. (if
  655.     (askbool
  656.         (prompt    #StartupMsg3)
  657.         (help        #StartupHelp3)
  658.     )
  659.     (if
  660.         (= @language "english")
  661.         (
  662.             (run "Copy Picasso96/Picasso96_english.guide RAM:" (safe))
  663.             (run "SYS:Utilities/MultiView RAM:Picasso96_english.guide" (safe))
  664.         )
  665.         (
  666.             (run "Copy Picasso96/Picasso96_deutsch.guide RAM:" (safe))
  667.             (run "SYS:Utilities/MultiView RAM:Picasso96_deutsch.guide" (safe))
  668.         )
  669.     )
  670. )
  671. (user #_olduserlevel)
  672.  
  673. (if
  674.     (< (getversion) (* #MinSysVersion 65536))
  675.     (abort #Err-Bad-Kick)
  676. )
  677.  
  678. (if
  679.     (patmatch "68000|68010" (database "cpu"))
  680.     (abort #Err-Bad-Cpu)
  681. )
  682.  
  683. ;*********************
  684.  
  685. (set #_installmode 0)
  686.  
  687. (if
  688.     (= #_installmode 0)
  689.     (
  690.         ;*********************
  691.         ; install
  692.     
  693.         ;*********************
  694.         ; check boards
  695.         
  696.         (set #_boards 0)
  697.  
  698.         ;*********************
  699.         ; CyberVision: mem:34/regs:35
  700.         (set #_CyberVisionCnt (run "FindBoard 8512 34" (safe)))
  701.         (if
  702.             (> #_CyberVisionCnt 0)
  703.             (set #_boards (BITOR #_boards 1))
  704.         )
  705.  
  706.         ;*********************
  707.         ; Domino: mem:1/regs:2
  708.         (set #_DominoCnt (run "FindBoard 2167 1" (safe)))
  709.         (if
  710.             (> #_DominoCnt 0)
  711.             (set #_boards (BITOR #_boards 2))
  712.         )
  713.  
  714.         ;*********************
  715.         ; Graffity: mem:33/regs:34
  716.         (set #_GraffityCnt (run "FindBoard 2092 33" (safe)))
  717.         (if
  718.             (> #_GraffityCnt 0)
  719.             (set #_boards (BITOR #_boards 4))
  720.         )
  721.  
  722.         ;*********************
  723.         ; Merlin: mem:3/regs:4
  724.         (set #_MerlinCnt (run "FindBoard 2117 3" (safe)))
  725.         (if
  726.             (> #_MerlinCnt 0)
  727.             (set #_boards (BITOR #_boards 8))
  728.         )
  729.  
  730.         ;*********************
  731.         ; oMniBus: there can only be one!
  732.         (if
  733.             (run "FindBoard 2181 0" (safe))
  734.             (
  735.                 (set #_oMniBusCnt 1)
  736.                 (set #_boards (BITOR #_boards 16))
  737.             )
  738.         )
  739.  
  740.         ;*********************
  741.         ; PicassoII: mem:11/regs:12
  742.         (set #_PicassoIICnt (run "FindBoard 2167 11" (safe)))
  743.         (if
  744.             (> #_PicassoIICnt 0)
  745.             (set #_boards (BITOR #_boards 32))
  746.         )
  747.  
  748.         ;*********************
  749.         ; PicassoIV: 21/22/23/24
  750.         (set #_PicassoIVCnt (+ (run "FindBoard 2167 21" (safe)) (run "FindBoard 2167 24" (safe))))
  751.         (if
  752.             (> #_PicassoIVCnt 0)
  753.             (set #_boards (BITOR #_boards 64))
  754.         )
  755.  
  756.         ;*********************
  757.         ; Piccolo: mem:5/regs:6
  758.         (set #_PiccoloCnt (run "FindBoard 2195 5" (safe)))
  759.         (if
  760.             (> #_PiccoloCnt 0)
  761.             (set #_boards (BITOR #_boards 128))
  762.         )
  763.  
  764.         ;*********************
  765.         ; PiccoloSD64: mem:10/regs:11
  766.         (set #_PiccoloSD64Cnt (run "FindBoard 2195 10" (safe)))
  767.         (if
  768.             (> #_PiccoloSD64Cnt 0)
  769.             (set #_boards (BITOR #_boards 128))
  770.         )
  771.  
  772.         ;*********************
  773.         ; Spectrum: mem:1/regs:2
  774.         (set #_SpectrumCnt (run "FindBoard 2193 1" (safe)))
  775.         (if
  776.             (> #_SpectrumCnt 0)
  777.             (set #_boards (BITOR #_boards 512))
  778.         )
  779.  
  780.         ;*********************
  781.         ; user selects boards
  782.  
  783.         (if
  784.             (= 0 #_boards)
  785.             (message #Warning-NoBoards)
  786.         )
  787.  
  788.         (set #_boards
  789.             (askoptions
  790.                 (prompt #AskBoards)
  791.                 (help #AskBoardsHelp)
  792.                 (choices
  793.                     "CyberVision 64"
  794.                     "Domino"
  795.                     "Graffity"
  796.                     "Merlin"
  797.                     "oMniBus"
  798.                     "Picasso II/II+"
  799.                     "Picasso IV"
  800.                     "Piccolo"
  801.                     "Piccolo SD64"
  802.                     "Spectrum"
  803.                 )
  804.                 (default #_boards)
  805.             )
  806.         )
  807.  
  808.         (set #_olduserlevel @user-level)
  809.         (user 1)
  810.  
  811.         (set #_monitor
  812.             (askchoice
  813.                 (prompt #AskMonitor)
  814.                 (help #AskMonitorHelp)
  815.                 (choices    #15kHzMonitor #31kHzMonitor #35kHzMonitor #38kHzMonitor
  816.                             #48kHzMonitor #57kHzMonitor #64kHzMonitor)
  817.                 (default 1)
  818.             )
  819.         )
  820.  
  821.         (user #_olduserlevel)
  822.  
  823.         (if
  824.             (= #_boards 0)
  825.             (abort #Err-No-Boards)
  826.         )
  827.  
  828.         ;*********************
  829.         ; get paths
  830.  
  831.         (if
  832.             (askbool
  833.                 (prompt #AskLibPath)
  834.                 (help #AskLibPathHelp)
  835.                 (choices #AskLibPathLibs #AskLibPathUser)
  836.             )
  837.             (set #_libpath #LibsDefaultPath)
  838.             (set #_libpath
  839.                 (askdir
  840.                     (prompt #SelectLibDir)
  841.                     (help #SelectLibDirHelp)
  842.                     (default #LibsDefaultPath)
  843.                 )
  844.             )
  845.         )
  846.  
  847.         (if
  848.             (askbool
  849.                 (prompt #AskMonitorPath)
  850.                 (help #AskMonitorPathHelp)
  851.                 (choices #AskMonitorPathMonitors #AskMonitorPathUser)
  852.             )
  853.             (set #_monitorpath #MonitorsDefaultPath)
  854.             (set #_monitorpath
  855.                 (askdir
  856.                     (prompt #SelectMonitorDir)
  857.                     (help #SelectMonitorDirHelp)
  858.                     (default #MonitorsDefaultPath)
  859.                 )
  860.             )
  861.         )
  862.  
  863.         (if
  864.             (askbool
  865.                 (prompt #AskPrefsPath)
  866.                 (help #AskPrefsPathHelp)
  867.                 (choices #AskPrefsPathPrefs #AskPrefsPathUser)
  868.             )
  869.             (set #_prefspath #PrefsDefaultPath)
  870.             (set #_prefspath
  871.                 (askdir
  872.                     (prompt #SelectPrefsDir)
  873.                     (help #SelectPrefsDirHelp)
  874.                     (default #PrefsDefaultPath)
  875.                 )
  876.             )
  877.         )
  878.  
  879.         (if
  880.             (askbool
  881.                 (prompt #AskSettingsPath)
  882.                 (help #AskSettingsPathHelp)
  883.                 (choices #AskSettingsPathDevs #AskSettingsPathUser)
  884.             )
  885.             (set #_settingsname #SettingsDefaultName)
  886.             (set #_settingsname
  887.                 (askdir
  888.                     (prompt #SelectSettingsDir)
  889.                     (help #SelectSettingsDirHelp)
  890.                     (default #SettingsDefaultName)
  891.                 )
  892.             )
  893.         )
  894.  
  895.         (set #_copysettings 1)
  896.         (if
  897.             (exists #_settingsname (noreq))
  898.             (if
  899.                 (askbool
  900.                     (prompt #AskSettingsCopy)
  901.                     (help #AskSettingsCopyHelp)
  902.                     (choices #Keep #Overwrite)
  903.                 )
  904.                 (set #_copysettings 0)
  905.                 (set #_copysettings 2)
  906.             )
  907.         )
  908.  
  909.         (set #_mainpathroot
  910.             (askdir
  911.                 (prompt #SelectMainDir)
  912.                 (help #SelectMainDirHelp)
  913.                 (default #MainDefaultPath)
  914.                 (newpath)
  915.                 (disk)
  916.             )
  917.         )
  918.         (set #_mainpath (tackon #_mainpathroot #MainPath))
  919.         
  920.         (set #_copydrivers
  921.             (askbool
  922.                 (prompt #CopyDrivers)
  923.                 (help #CopyDriversHelp)
  924.             )
  925.         )
  926.  
  927.         (set #_libsPicasso96path (tackon #_libpath "Picasso96"))
  928.  
  929.         ;*********************
  930.         ; finally install...
  931.  
  932.         (working #Msg-Installing)
  933.  
  934.         ; set application path to get install_log_file there
  935.         (set @default-dest #_mainpath)
  936.  
  937.         ; make applications directory (holds update/uninstall scripts, too)
  938.         (if
  939.             (= 0 (exists #_mainpath))
  940.             (makedir #_mainpath
  941.                 (prompt #Picasso96HomeDir)
  942.                 (help #Picasso96HomeDirHelp)
  943.                 (confirm)
  944.             )
  945.         )
  946.  
  947.         ; copy applications
  948.  
  949.         (copyfiles
  950.             (prompt #CopyApps)
  951.             (help #CopyAppsHelp)
  952.             (source "Picasso96")
  953.             (dest #_mainpath)
  954.             (infos)
  955.             (all)
  956.         )
  957.  
  958.  
  959.         ; makedir libs/Picasso96
  960.         (if
  961.             (= 0 (exists #_libsPicasso96path))
  962.             (makedir #_libsPicasso96path
  963.                 (prompt #Picasso96Dir)
  964.                 (help #Picasso96DirHelp)
  965.                 (confirm)
  966.             )
  967.         )
  968.  
  969.         ; copy Picasso96API.library
  970.         (copylib
  971.             (prompt #CopyPicasso96API)
  972.             (help #CopyPicasso96APIHelp)
  973.             (source "libs/Picasso96API.library")
  974.             (dest #_libpath)
  975.             (confirm)
  976.         )
  977.  
  978.         ; copy rtg.library
  979.         (copylib
  980.             (prompt #CopyRtg)
  981.             (help #CopyRtgHelp)
  982.             (source "libs/Picasso96/rtg.library")
  983.             (dest #_libsPicasso96path)
  984.             (confirm)
  985.         )
  986.  
  987.         ; copy fastlayers.library
  988.         (copylib
  989.             (prompt #CopyFL)
  990.             (help #CopyFLHelp)
  991.             (source "libs/Picasso96/fastlayers.library")
  992.             (dest #_libsPicasso96path)
  993.             (confirm)
  994.         )
  995.  
  996.         ; copy picture.datatype
  997.         (if
  998.             (NOT(exists "SYS:Classes/Datatypes/picture.datatype.old"))
  999.             (copyfiles
  1000.                 (source "SYS:Classes/Datatypes/picture.datatype")
  1001.                 (dest "SYS:Classes/Datatypes")
  1002.                 (newname "picture.datatype.old")
  1003.             )
  1004.         )
  1005.         (copylib
  1006.             (prompt #CopyPDT)
  1007.             (help #CopyPDTHelp)
  1008.             (source "Classes/Datatypes/picture.datatype")
  1009.             (dest "SYS:Classes/Datatypes")
  1010.             (confirm)
  1011.         )
  1012.  
  1013.         ; install chips
  1014.  
  1015.         (if
  1016.             (BITAND #_boards 1)
  1017.             (
  1018.                 (set #_chipname "S3Trio64")
  1019.                 (P_InstallChip)
  1020.             )
  1021.         )
  1022.  
  1023.         (if
  1024.             (BITAND #_boards (+ 2 16))
  1025.             (
  1026.                 (set #_chipname "TsengET4000")
  1027.                 (P_InstallChip)
  1028.             )
  1029.         )
  1030.  
  1031.         (if
  1032.             (BITAND #_boards (+ 8 16))
  1033.             (
  1034.                 (set #_chipname "TsengET4000W32")
  1035.                 (P_InstallChip)
  1036.             )
  1037.         )
  1038.  
  1039.         (if
  1040.             (BITAND #_boards (+ 4 32 128 512))
  1041.             (
  1042.                 (set #_chipname "CirrusGD542X")
  1043.                 (P_InstallChip)
  1044.             )
  1045.         )
  1046.  
  1047.         (if
  1048.             (BITAND #_boards 64)
  1049.             (
  1050.                 (set #_chipname "CirrusGD5446")
  1051.                 (P_InstallChip)
  1052.             )
  1053.         )
  1054.  
  1055.         (if
  1056.             (BITAND #_boards 256)
  1057.             (
  1058.                 (set #_chipname "CirrusGD5434")
  1059.                 (P_InstallChip)
  1060.             )
  1061.         )
  1062.  
  1063.         (if
  1064.             (BITAND #_boards 1)
  1065.             (
  1066.                 (set #_boardname "CyberVision")
  1067.                 (P_InstallCard)
  1068.             )
  1069.         )
  1070.  
  1071.         (if
  1072.             (BITAND #_boards 2)
  1073.             (
  1074.                 (set #_boardname "Domino")
  1075.                 (P_InstallCard)
  1076.             )
  1077.         )
  1078.  
  1079.         (if
  1080.             (BITAND #_boards 4)
  1081.             (
  1082.                 (set #_boardname "Graffity")
  1083.                 (P_InstallCard)
  1084.             )
  1085.         )
  1086.  
  1087.         (if
  1088.             (BITAND #_boards 8)
  1089.             (
  1090.                 (set #_boardname "Merlin")
  1091.                 (P_InstallCard)
  1092.             )
  1093.         )
  1094.  
  1095.         (if
  1096.             (BITAND #_boards 16)
  1097.             (
  1098.                 (set #_boardname "oMniBus")
  1099.                 (P_InstallCard)
  1100.             )
  1101.         )
  1102.  
  1103.         (if
  1104.             (BITAND #_boards 32)
  1105.             (
  1106.                 (set #_boardname "PicassoII")
  1107.                 (P_InstallCard)
  1108.             )
  1109.         )
  1110.  
  1111.         (if
  1112.             (BITAND #_boards 64)
  1113.             (
  1114.                 (set #_boardname "PicassoIV")
  1115.                 (P_InstallCard)
  1116.             )
  1117.         )
  1118.  
  1119.         (if
  1120.             (BITAND #_boards 128)
  1121.             (
  1122.                 (set #_boardname "Piccolo")
  1123.                 (P_InstallCard)
  1124.             )
  1125.         )
  1126.  
  1127.         (if
  1128.             (BITAND #_boards 256)
  1129.             (
  1130.                 (set #_boardname "PiccoloSD64")
  1131.                 (P_InstallCard)
  1132.             )
  1133.         )
  1134.  
  1135.         (if
  1136.             (BITAND #_boards 512)
  1137.             (
  1138.                 (set #_boardname "Spectrum")
  1139.                 (P_InstallCard)
  1140.             )
  1141.         )
  1142.  
  1143.         ; copy Picasso96Mode
  1144.         (copylib
  1145.             (prompt #CopyPicasso96Mode)
  1146.             (help #CopyPicasso96ModeHelp)
  1147.             (source "Prefs/Picasso96Mode")
  1148.             (dest #_prefspath)
  1149.             (confirm)
  1150.             (infos)
  1151.         )
  1152.         (tooltype
  1153.             (prompt #Picasso96ModeIconType)
  1154.             (help #Picasso96ModeIconTypeHelp)
  1155.             (dest (tackon #_prefspath "Picasso96Mode"))
  1156.             (settooltype "SettingsFile" #_settingsname)
  1157.             (noposition)
  1158.             (confirm)
  1159.         )
  1160.  
  1161.         ; backup old settings file
  1162.         (if
  1163.             (= #_copysettings 2)
  1164.             (copyfiles
  1165.                 (prompt #CopySettings)
  1166.                 (help #CopySettingsHelp)
  1167.                 (source #_settingsname)
  1168.                 (dest (pathonly #_settingsname))
  1169.                 (confirm)
  1170.                 (newname (cat (fileonly #_settingsname) ".bak"))
  1171.             )
  1172.         )
  1173.         ; copy settings file
  1174.         (set #_settingssource
  1175.             (select #_monitor
  1176.                 "devs/Picasso96Settings.15"
  1177.                 "devs/Picasso96Settings.31"
  1178.                 "devs/Picasso96Settings.35.5"
  1179.                 "devs/Picasso96Settings.38"
  1180.                 "devs/Picasso96Settings.48"
  1181.                 "devs/Picasso96Settings.57"
  1182.                 "devs/Picasso96Settings.64"
  1183.             )
  1184.         )
  1185.         (if
  1186.             (NOT (= #_copysettings 0))
  1187.             (copyfiles
  1188.                 (prompt #CopySettings)
  1189.                 (help #CopySettingsHelp)
  1190.                 (source #_settingssource)
  1191.                 (dest (pathonly #_settingsname))
  1192.                 (confirm)
  1193.                 (newname (fileonly #_settingsname))
  1194.             )
  1195.         )
  1196.  
  1197.         ; copy emulation library
  1198.         (copylib
  1199.             (prompt #CopyEmuLib)
  1200.             (help #CopyEmuLibHelp)
  1201.             (source "libs/Picasso96/emulation.library")
  1202.             (dest #_libsPicasso96path)
  1203.             (confirm)
  1204.         )
  1205.         
  1206.         ; modify user-startup
  1207.         (startup @app-name
  1208.             (prompt #AddUserStartup)
  1209.             (help #AddUserStartupHelp)
  1210.             (command (cat "Assign " #MainPath ": \"" #_mainpath "\""))
  1211.         )
  1212.  
  1213.         ; copy drivers to harddisk
  1214.         (if
  1215.             (= #_copydrivers 1)
  1216.             (
  1217.                 (copyfiles
  1218.                     (source "drivers")
  1219.                     (dest #_mainpath)
  1220.                     (all)
  1221.                 )
  1222.                 (if
  1223.                     (= 1 (exists (tackon #_mainpath "ShapeShifter")))
  1224.                     (tooltype
  1225.                         (prompt #DriversToolType)
  1226.                         (help #DriversToolTypeHelp)
  1227.                         (dest (tackon #_mainpath "ShapeShifter"))
  1228.                         (noposition)
  1229.                         (confirm)
  1230.                     )
  1231.                 )
  1232.                 (if
  1233.                     (= 1 (exists (tackon #_mainpath "ADPro")))
  1234.                     (tooltype
  1235.                         (prompt #DriversToolType)
  1236.                         (help #DriversToolTypeHelp)
  1237.                         (dest (tackon #_mainpath "ADPro"))
  1238.                         (noposition)
  1239.                         (confirm)
  1240.                     )
  1241.                 )
  1242.                 (if
  1243.                     (= 1 (exists (tackon #_mainpath "Photogenics")))
  1244.                     (tooltype
  1245.                         (prompt #DriversToolType)
  1246.                         (help #DriversToolTypeHelp)
  1247.                         (dest (tackon #_mainpath "Photogenics"))
  1248.                         (noposition)
  1249.                         (confirm)
  1250.                     )
  1251.                 )
  1252.                 (if
  1253.                     (= 1 (exists (tackon #_mainpath "XiPaint")))
  1254.                     (tooltype
  1255.                         (prompt #DriversToolType)
  1256.                         (help #DriversToolTypeHelp)
  1257.                         (dest (tackon #_mainpath "XiPaint"))
  1258.                         (noposition)
  1259.                         (confirm)
  1260.                     )
  1261.                 )
  1262.                 (message
  1263.                     #MsgInstallFromHD
  1264.                     (all)
  1265.                 )
  1266.             )
  1267.         )
  1268.     )
  1269. )
  1270.